home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / MEMORY.SWG / 0023_Compare Memory Blocks.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-27  |  701b  |  20 lines
  1. { JOACHIM BARTZ }
  2.  
  3. Function CompBlocks(Buf1, Buf2 : Pointer;
  4.                           BufSize : Word) : Boolean; Assembler;
  5. Asm                 { Compares two buffers and returns True if contents are equal }
  6.   PUSH        DS
  7.   MOV          AX,1                { Init error return: True }
  8.   LDS          SI,Buf1
  9.   LES          DI,Buf2
  10.   MOV          CX,BufSize
  11.   JCXZ        @@Done
  12.   CLD                            { Loop Until different or end of buffer }
  13.   REP          CMPSB       { Flag to bump SI,DI }
  14.   JE          @@Done
  15.                           { Compare error }
  16.   XOR          AX, AX            { Return False }
  17.  @@Done:
  18.   POP          DS                { Restore }
  19. end;
  20.